IF exists(SELECT * FROM dbo.sysobjects WHERE name='fr_vulFr_cijfers' AND xtype='P') 
BEGIN
	DROP PROCEDURE fr_vulFr_cijfers
END
GO

CREATE  procedure fr_vulFr_cijfers
/************************************************
Brengt cijfers van het oude systeem over naar de nieuwe gegevensrepresentatie.
Dit in afwachting van een nieuwe PuntCentraal
*************************************************/
as
delete from fr_cijfers
delete from fr_commentaar

insert into fr_cijfers(periode,inschrijvingsNr,vak,groep,leraar,code,cijfer,maximum)
select 'm' + convert(char,periode),inschrijvingsNr,vak,'5wwa','htro','TOT',cijfer,max
from studiebegeleiding..r_maandcijfers

insert into fr_commentaar(periode,type,inschrijvingsNr,vak,groep,leraar,code,tekst)
select 'm' + convert(char,periode),'K',inschrijvingsNr,vak,'5wwa','htro','TOT',tekst
from studiebegeleiding..r_maandcommentaar

insert into fr_commentaar(periode,type,inschrijvingsNr,vak,groep,leraar,code,tekst)
select 'm' + convert(char,periode),'V',inschrijvingsNr,vak,'5wwa','htro','TOT',tekst
from studiebegeleiding..r_maandvakcommentaar

insert into fr_cijfers(periode,inschrijvingsNr,vak,groep,leraar,code,cijfer,maximum)
select 't' + convert(char,periode),inschrijvingsNr,vak,'5wwa','htro','DW',DW,DWmax
from studiebegeleiding..r_trimestercijfers

insert into fr_cijfers(periode,inschrijvingsNr,vak,groep,leraar,code,cijfer,maximum)
select 't' + convert(char,periode),inschrijvingsNr,vak,'5wwa','htro','EX',EX,EXmax
from studiebegeleiding..r_trimestercijfers

insert into fr_commentaar(periode,type,inschrijvingsNr,vak,groep,leraar,code,tekst)
select 'm' + convert(char,periode),'T',inschrijvingsNr,vak,'5wwa','htro','TOT',tekst
from studiebegeleiding..r_trimestercommentaar

insert into fr_commentaar(periode,type,inschrijvingsNr,vak,groep,leraar,code,tekst)
select 'm' + convert(char,periode),'V',inschrijvingsNr,vak,'5wwa','htro','TOT',tekst
from studiebegeleiding..r_trimestervakcommentaar


insert into fr_commentaar(periode,type,inschrijvingsNr,vak,groep,leraar,code,tekst)
select convert(char,periode),'D',inschrijvingsNr,vak,'5wwa','htro',code,tekst
from studiebegeleiding..r_vakrapportDetailCommentaar